/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_emacs.idb / usr / freeware / share / emacs / 19.34 / lisp / rot13.elc.z / rot13.elc

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 65 72 69 6b 40 6e 61 |piled by| erik@na|
|00000020| 67 67 75 6d 2e 6e 6f 20 | 6f 6e 20 53 75 6e 20 4a |ggum.no |on Sun J|
|00000030| 61 6e 20 31 34 20 30 36 | 3a 33 36 3a 32 36 20 31 |an 14 06|:36:26 1|
|00000040| 39 39 36 0a 3b 3b 3b 20 | 66 72 6f 6d 20 66 69 6c |996.;;; |from fil|
|00000050| 65 20 2f 67 64 2f 67 6e | 75 2f 65 6d 61 63 73 2f |e /gd/gn|u/emacs/|
|00000060| 31 39 2e 30 2f 6c 69 73 | 70 2f 72 6f 74 31 33 2e |19.0/lis|p/rot13.|
|00000070| 65 6c 0a 3b 3b 3b 20 65 | 6d 61 63 73 20 76 65 72 |el.;;; e|macs ver|
|00000080| 73 69 6f 6e 20 31 39 2e | 33 30 2e 37 30 2e 36 2e |sion 19.|30.70.6.|
|00000090| 0a 3b 3b 3b 20 62 79 74 | 65 63 6f 6d 70 20 76 65 |.;;; byt|ecomp ve|
|000000a0| 72 73 69 6f 6e 20 46 53 | 46 20 32 2e 31 30 0a 3b |rsion FS|F 2.10.;|
|000000b0| 3b 3b 20 6f 70 74 69 6d | 69 7a 61 74 69 6f 6e 20 |;; optim|ization |
|000000c0| 69 73 20 6f 6e 2e 0a 3b | 3b 3b 20 74 68 69 73 20 |is on..;|;; this |
|000000d0| 66 69 6c 65 20 75 73 65 | 73 20 6f 70 63 6f 64 65 |file use|s opcode|
|000000e0| 73 20 77 68 69 63 68 20 | 64 6f 20 6e 6f 74 20 65 |s which |do not e|
|000000f0| 78 69 73 74 20 69 6e 20 | 45 6d 61 63 73 20 31 38 |xist in |Emacs 18|
|00000100| 2e 0a 0a 28 69 66 20 28 | 61 6e 64 20 28 62 6f 75 |...(if (|and (bou|
|00000110| 6e 64 70 20 27 65 6d 61 | 63 73 2d 76 65 72 73 69 |ndp 'ema|cs-versi|
|00000120| 6f 6e 29 0a 09 20 28 6f | 72 20 28 61 6e 64 20 28 |on).. (o|r (and (|
|00000130| 62 6f 75 6e 64 70 20 27 | 65 70 6f 63 68 3a 3a 76 |boundp '|epoch::v|
|00000140| 65 72 73 69 6f 6e 29 20 | 65 70 6f 63 68 3a 3a 76 |ersion) |epoch::v|
|00000150| 65 72 73 69 6f 6e 29 0a | 09 20 20 20 20 20 28 73 |ersion).|.     (s|
|00000160| 74 72 69 6e 67 2d 6c 65 | 73 73 70 20 65 6d 61 63 |tring-le|ssp emac|
|00000170| 73 2d 76 65 72 73 69 6f | 6e 20 22 31 39 2e 32 39 |s-versio|n "19.29|
|00000180| 22 29 29 29 0a 20 20 20 | 20 28 65 72 72 6f 72 20 |"))).   | (error |
|00000190| 22 60 72 6f 74 31 33 2e | 65 6c 27 20 77 61 73 20 |"`rot13.|el' was |
|000001a0| 63 6f 6d 70 69 6c 65 64 | 20 66 6f 72 20 45 6d 61 |compiled| for Ema|
|000001b0| 63 73 20 31 39 2e 32 39 | 20 6f 72 20 6c 61 74 65 |cs 19.29| or late|
|000001c0| 72 22 29 29 0a 0a 0a 23 | 40 33 32 20 43 68 61 72 |r"))...#|@32 Char|
|000001d0| 20 74 61 62 6c 65 20 66 | 6f 72 20 72 6f 74 20 31 | table f|or rot 1|
|000001e0| 33 20 64 69 73 70 6c 61 | 79 2e 1f 0a 28 64 65 66 |3 displa|y...(def|
|000001f0| 76 61 72 20 72 6f 74 31 | 33 2d 64 69 73 70 6c 61 |var rot1|3-displa|
|00000200| 79 2d 74 61 62 6c 65 20 | 28 62 79 74 65 2d 63 6f |y-table |(byte-co|
|00000210| 64 65 20 22 c0 20 c1 1a | 1b 5c 6e c4 57 83 30 00 |de ". ..|.\n.W.0.|
|00000220| 0b 5c 6e c5 5c 5c c6 5c | 6e c7 5c 5c c4 a6 c5 5c |.\n.\\.\|n.\\...\|
|00000230| 5c 21 49 88 0b 5c 6e c8 | 5c 5c c6 5c 6e c7 5c 5c |\!I..\n.|\\.\n.\\|
|00000240| c4 a6 c8 5c 5c 21 49 88 | 5c 6e 54 89 12 82 06 00 |...\\!I.|\nT.....|
|00000250| 0b 2a 87 22 20 5b 6d 61 | 6b 65 2d 64 69 73 70 6c |.*." [ma|ke-displ|
|00000260| 61 79 2d 74 61 62 6c 65 | 20 30 20 69 20 74 61 62 |ay-table| 0 i tab|
|00000270| 6c 65 20 32 36 20 39 37 | 20 76 65 63 74 6f 72 20 |le 26 97| vector |
|00000280| 31 33 20 36 35 5d 20 36 | 29 20 28 23 24 20 2e 20 |13 65] 6|) (#$ . |
|00000290| 34 36 30 29 29 0a 23 40 | 31 30 35 20 44 69 73 70 |460)).#@|105 Disp|
|000002a0| 6c 61 79 20 63 75 72 72 | 65 6e 74 20 62 75 66 66 |lay curr|ent buff|
|000002b0| 65 72 20 69 6e 20 72 6f | 74 20 31 33 20 69 6e 20 |er in ro|t 13 in |
|000002c0| 61 6e 6f 74 68 65 72 20 | 77 69 6e 64 6f 77 2e 0a |another |window..|
|000002d0| 54 6f 20 74 65 72 6d 69 | 6e 61 74 65 20 74 68 65 |To termi|nate the|
|000002e0| 20 72 6f 74 31 33 20 64 | 69 73 70 6c 61 79 2c 20 | rot13 d|isplay, |
|000002f0| 64 65 6c 65 74 65 20 74 | 68 61 74 20 77 69 6e 64 |delete t|hat wind|
|00000300| 6f 77 2e 1f 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |ow...(de|falias '|
|00000310| 72 6f 74 31 33 2d 6f 74 | 68 65 72 2d 77 69 6e 64 |rot13-ot|her-wind|
|00000320| 6f 77 20 23 5b 6e 69 6c | 20 22 c0 70 c1 5c 22 1a |ow #[nil| ".p.\".|
|00000330| c3 5c 6e 5c 66 5c 22 29 | 87 22 20 5b 64 69 73 70 |.\n\f\")|." [disp|
|00000340| 6c 61 79 2d 62 75 66 66 | 65 72 20 74 20 77 20 73 |lay-buff|er t w s|
|00000350| 65 74 2d 77 69 6e 64 6f | 77 2d 64 69 73 70 6c 61 |et-windo|w-displa|
|00000360| 79 2d 74 61 62 6c 65 20 | 72 6f 74 31 33 2d 64 69 |y-table |rot13-di|
|00000370| 73 70 6c 61 79 2d 74 61 | 62 6c 65 5d 20 33 20 28 |splay-ta|ble] 3 (|
|00000380| 23 24 20 2e 20 36 36 38 | 29 20 6e 69 6c 5d 29 0a |#$ . 668|) nil]).|
|00000390| 23 40 35 39 20 54 6f 67 | 67 6c 65 20 74 68 65 20 |#@59 Tog|gle the |
|000003a0| 75 73 65 20 6f 66 20 72 | 6f 74 20 31 33 20 65 6e |use of r|ot 13 en|
|000003b0| 63 6f 64 69 6e 67 20 66 | 6f 72 20 74 68 65 20 63 |coding f|or the c|
|000003c0| 75 72 72 65 6e 74 20 77 | 69 6e 64 6f 77 2e 1f 0a |urrent w|indow...|
|000003d0| 28 64 65 66 61 6c 69 61 | 73 20 27 74 6f 67 67 6c |(defalia|s 'toggl|
|000003e0| 65 2d 72 6f 74 31 33 2d | 6d 6f 64 65 20 23 5b 6e |e-rot13-|mode #[n|
|000003f0| 69 6c 20 22 c0 c1 20 21 | 5c 6e 3d 83 0f 00 c3 c1 |il ".. !|\n=.....|
|00000400| 20 c4 5c 22 87 c0 c1 20 | 21 3f 85 1c 00 c3 c1 20 | .\"... |!?..... |
|00000410| 5c 6e 5c 22 87 22 20 5b | 77 69 6e 64 6f 77 2d 64 |\n\"." [|window-d|
|00000420| 69 73 70 6c 61 79 2d 74 | 61 62 6c 65 20 73 65 6c |isplay-t|able sel|
|00000430| 65 63 74 65 64 2d 77 69 | 6e 64 6f 77 20 72 6f 74 |ected-wi|ndow rot|
|00000440| 31 33 2d 64 69 73 70 6c | 61 79 2d 74 61 62 6c 65 |13-displ|ay-table|
|00000450| 20 73 65 74 2d 77 69 6e | 64 6f 77 2d 64 69 73 70 | set-win|dow-disp|
|00000460| 6c 61 79 2d 74 61 62 6c | 65 20 6e 69 6c 5d 20 33 |lay-tabl|e nil] 3|
|00000470| 20 28 23 24 20 2e 20 39 | 31 37 29 20 6e 69 6c 5d | (#$ . 9|17) nil]|
|00000480| 29 0a 28 70 72 6f 76 69 | 64 65 20 28 71 75 6f 74 |).(provi|de (quot|
|00000490| 65 20 72 6f 74 31 33 29 | 29 0a                   |e rot13)|).      |
+--------+-------------------------+-------------------------+--------+--------+